home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -serious- / wb / textloader / rexx / for_scanquix / imagemaster / rxpi / scanimage.rexx
OS/2 REXX Batch file  |  1999-07-12  |  2KB  |  79 lines
  1. /* $VER: ScanImage.rexx 1.5 (14.09.96) for ImageMaster R/T V1.x © by Jochen Grus */
  2. /* WHY is this Version 1.5? Na, weil es so schön ist...*/
  3. /* IMPORTANT !!! SET THE PATH TO RAM: (IM - Setup Picture path)  */
  4.  
  5. parse arg fullname
  6. call pragma('stack',20000);
  7.  
  8. if ~show('L',"rexxsupport.library") then do
  9.   if ~addlib('rexxsupport.library',0,-30,0) then do
  10.     say "Hey Stupid we have a big fuckin problem! (KICHER)";
  11.     say 'We have also a Library Problem, Unable To Load "rexxsupport.library"';
  12.     say 'Cannot operate PI Modules without this library - ARSCH!';
  13.     'finish';
  14.     exit 10;
  15.     end;
  16.   end;
  17.  
  18. prtnme = 'IP_Port'; /* assume Image Professional */
  19. if show('P','IP_Port') = 0 then do
  20.   if show('P','IM_Port') = 0 then do
  21.     say "We have another fuckin big problem!";
  22.     say "Can't find image processor's ARexx port!!!"; /* not running? Idiot */
  23.     say "This script requires ScanQuix3, IP, IM or IM F/c and a Scanner to run!";
  24.     exit(20);
  25.     end;
  26.   else do
  27.     prtnme = 'IM_Port';
  28.     end;
  29.   end;
  30.  
  31. options failat 25     /* ScanToDisk returns 0 or 20 */
  32.  
  33. ok=1
  34. call SCAN()           /* Scans the image into a temporary file */
  35. call IMPORTGRAPHIC()  /* Loads Image into ImageMaster R/T */
  36. call DELETEFILE()     /* Removes temporary image file */
  37.  
  38. EXIT
  39.  
  40.  
  41.  
  42. SCAN:
  43. /* Scans the image into a temporary file using the program "ScanToDisk". */
  44. /* IMPORTANT !!! You should scan only Porno-Pictures !!!  Hechel  */
  45.   if not 1=open('path','ENV:ScanQuix/Path','READ') then do
  46.     ok=0
  47.     return
  48.   end
  49.  
  50.   pragma('DIRECTORY',READLN('path'))
  51.   address command 'ScanQuix3/ScanToDisk FILE="Ram:ScanImage" TRUECOLOR NOICONS NOGUI'
  52.   if RC>=5 then do
  53.     ok=0
  54.     return
  55.   end
  56.  
  57. return
  58.   'imtofront';
  59.  
  60.  
  61.  
  62. IMPORTGRAPHIC:
  63. /* Loads the image into ImageMaster R/T ...GOIL*/
  64.   address(prtnme);
  65.   options results;
  66.   forcefront
  67.   say "Da wird ja ein Goiles Bildchen eingescannt...";
  68.   'load ScanImage' /* Nochmals für alle IDIOTEN !!! Der Pfad muß RAM: sein!!! (IM - Setup - Picture path)  */
  69.   if ok=0 then
  70.     return
  71. return
  72.  
  73.  
  74.  
  75. DELETEFILE:
  76. /* removes temporary file ...Uiiijuiiijuiii */
  77.   address command 'delete ram:ScanImage'
  78. return
  79.